home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / security / cops / cops_104 / extra_src / bad_dir.pl next >
Encoding:
Text File  |  1992-03-10  |  696 b   |  22 lines
  1. # this prints out "bad" directory names:
  2.  
  3. #   string of things that are OK; currently, this
  4. # is anything that starts with a letter and number or the
  5. # chars "#", "$", "-", or "+" (or the same situation, with a
  6. # "." prepending):
  7. $ok_string  = "\/\.?[A-Za-z0-9\#\$\-\+]+[^\/]*$";
  8.  
  9. # "." and ".." are cool, as are
  10. # anything starting with the magic string;
  11. # but any unprintables are bad...
  12. if ((($ARGV[0] !~  /\.{1,2}$/) && ($ARGV[0] !~ /$ok_string/) &&
  13.     ($ARGV[0] ne "/")) || ($ARGV[0] =~ /\.\..+$/) ||
  14.     ($ARGV[0] =~ /[*\001-\040\177-\377]/)) {
  15.         # print "MATCH: ###", $ARGV[0], "\@\@\@\n";
  16.         print "\"", $ARGV[0], "\"\n";
  17.         }
  18. # else {
  19. #     print "\tNO MATCH: ###", $ARGV[0], "###\n";
  20. #     }
  21.  
  22.